source PAC.tcl

# PlaneteA --
#
#   value abstraction

inherit PlaneteA Abstraction
method PlaneteA constructor {control value} {
   this inherited $control 
   set this(value) $value
}
?
method PlaneteA destructor {} {
   this inherited
}



# PlaneteP --
#
#   a value presentation

inherit PlaneteP Presentation
method PlaneteP constructor {control} {
	this inherited $control
}


method PlaneteP destructor {} {
   this inherited
}


# Planete --
#
#   a value controler

inherit Planete Control
method Planete constructor {parent value} {
   PlaneteA ${objName}_abst $objName $value
   PlaneteP ${objName}_pres $objName
   this inherited $parent ${objName}_abst ${objName}_pres
}

method Planete destructor {} {
   this inherited
}

